Users_MovieCollection.asp 云网互动影视系统(12套模版和资源联盟) 6.2 - ASP源码程序

www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Users/Users_MovieCollection.asp
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>收藏影片</title>
<style type="text/css">
<!--
body {
	font-size:12px;
	color:#1E7ACE;
	background:#fff;
	text-align:center;
	line-height:22px;
}
fieldset {
	padding:10px;
	margin-top:5px;
	border:1px solid #1E7ACE;
	background:#fff;
}
fieldset legend {
	color:#1E7ACE;
	font-weight:bold;
	padding:3px 20px 3px 20px;
	border:1px solid #1E7ACE;	
	background:#fff;
}
.submit {
	border: 1px solid #1E7ACE;
	background-color: #FFFFFF;
}
-->
</style>
</head>
<BODY bottomMargin=20 Margin=0>
<!--#include file="../Conn.asp" -->
<!--#include file="../Function/Function.asp" -->
   <fieldset>
      <legend>影片收藏</legend>
<%IF ChecKWcafesIP(UsersIP())=True Then
response.write "<script>alert('对不起网吧会员无此功能');window.close();</Script>"
response.end
end if
if Request.Cookies("YWNTUserCookie")("UserName")="" then
Call UsersLogin()
response.end
end if
Set Rs=Server.CreateObject(YWNT_TMS_RS)
sql="select * from YWNT_TMS_UsersCollection where CollectionMoiveID="&NoSqlHack(Request.QueryString("CollectionMoiveID"))
Rs.open sql,Conn,1,3
if Rs.eof And Rs.bof then
RS.AddNew
RS("CollectionMoiveID")=NoSqlHack(Request.QueryString("CollectionMoiveID"))
RS("CollectionUsers")=Request.Cookies("YWNTUserCookie")("UserName")
RS("CollectionDate")=Now()
Rs.Update%>
<table width="344" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
            <tr>
              <td><img src="images/ff_ok_01.jpg" width="156" height="119"></td>
              <td><img src="images/ff_ok_02.gif" width="188" height="119" border="0" usemap="#Map2"></td>
            </tr>
            <tr>
              <td><img src="images/ff_ok_03.gif" width="156" height="110" border="0" usemap="#Map"></td>
              <td>&nbsp;</td>
            </tr>
          </table><map name="Map">
  <area shape="rect" coords="15,65,143,92" href="<%= GetConfig("WebiInstallDir") %>Users/Users_Index.asp?Url=Users_Collection.asp" target="_blank">
</map><map name="Map2">
  <area shape="rect" coords="64,74,175,102" href="javascript:window.close();">
</map>
<%else%>
      <table cellspacing="0" cellpadding="0" width="344" align="center" 
            bgcolor="#ffffff" border="0">
        <tbody>
          <tr>
            <td><img height="119" src="images/ff_error_01.jpg" 
                width="156" /></td>
            <td><img height="119" src="images/ff_error_02.gif" width="188" 
                  usemap="#Map2Map" border="0" /></td>
          </tr>
        </tbody>
      </table>
      <map name="Map2Map" id="Map2Map">
      <area shape="rect" coords="64,74,175,102"  href="javascript:window.close();" /></map>
	  <p><STRONG>错误信息：</STRONG>该节目已存在收藏夹中！</p>
<%end if
Rs.Close
Set Rs = Nothing
call connclose()%>
  </fieldset>
</body>
</html>